Top 10k strings from MicroHobby Semanal - Issue 069-072 (1986)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
11 ;" PARE LA CINTA ":
7 ?????? .......... 000000
5 A2,B2;" ":
5
5
4 ;x;":";a(nt,x);" ":
4 ;"ENERGIA : ";E;" "
4 )))+(65536
4 (NPROG/DOS)
4 "22",CERO;B$:
3 a$)+"^2)"+"*"+
3 A1,B1;" ":
2 z(nn+uv,ni-1
2 z(ni,dim,2
2 z(dim,dim,2
2 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
2 micro
2 dir=valor*5
2 d$=a$(b(i)+1
2 a$="("+c$+")":
2 UNO;"PONGA EN MARCHA LA CINTA";
2 SPACE-UNO,X1
2 SPACE-UNO,CERO:
2 SPACE,LINEA:
2 SPACE,CERO:
2 PUN=PUN+50
2 PUN=PUN+25
2 La batalla cosmica
2 I,CERO;,,:
2 DOS=UNO+UNO
2 Cargador U
2 CERO;" ";
2 C$=" Por favor, elija un programa "
2 B$=" "
2 ="L")-(378
2 ;"PULSE CUALQUIER TECLA."
2 ;"DESEAS JUGAR OTRA VEZ (S/N)";
2 ;" * SALDO PARCIAL * "'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
2 ;" PULSA UNA TECLA ":
2 ;" "
2 ;" "
2 ,po;" ";
2 ,((a(nt,52
2 *a(nt,e)/a(nt,51
2 *** CINTA-MICROHOBBY ***
2 )=(xx*xx+yy*yy)^.5
2 )+z(ni,ni-1
2 )+z(ni,dim,1
2 )+a(nt,z):
2 (yy/(xx+(xx=0
2 (VALOR)<"A"
2 "NOMBRE DE LOS DATOS ";n$:
2 "64"+NPROG)
2 "5";"cara: ";
2 "5";"Programa: ";
2 "5";"Programa inexistente":
2 "5";"'R' Vuelve al menu"
2 "5";"'L' Carga el programa";
2 "32"-I;C$(
2 "22",CERO;C$(I
2 "22",CERO;B$
2 "22",CERO;
2
2
2
1 z=a(ntab,53
1 z(nn+uv,nf,2
1 z(nn+uv,nf,1
1 z(nn+uv,dim,2
1 z(nn+uv,dim,1
1 z(j,k,l)=z(i,k,l):
1 z(i,k,l)=x(l):
1 yy=z(k,l,1
1 yy=om*r(h,5
1 yy=-sgn*m(i,5
1 y2=x2+incy:
1 y(m(j,sub)*(p=1
1 xx=z(k,l,1
1 xx=-sgn*m(i,5
1 x=dir+(cl1-1
1 x=dir+(cl-1
1 x=dir+((cl1-1
1 x2=x1+incx:
1 x1=x12*(izq
1 x+zz,col;x;":";a(nt,x);" ":
1 x(m(j,sub)*(p=0
1 x(l)=z(j,k,l):
1 w$=w$+l$(i)
1 w$="A-Ayuda B-Borr. lin.C-Carga prg.S-Salva prg.M-Mover lin.N-Nuevo prg.L-Listar P-Imp. list.D-Dump mem. I-Imp. Dump T-TransladarE-Ejecucion "
1 vista=(q$="p")+2
1 vista=(dir
1 valor=valor*5
1 uves=uves+1
1 teclas4 T
1 teclas2 O
1 teclas1 /
1 salvar programa
1 saldo parcial
1 sal=nde-nha:
1 sa=sa+sal:
1 s$=" "
1 rayy=ray*incy/fin
1 rayy*rayy):
1 rayy*rayy)*(pyf>-
1 rayx=ray*incx/fin
1 rayx*rayx),rayy*(pyf<175
1 rayx*rayx)*(pxf>-
1 rayx*(pxf<255
1 ray=(ray+4
1 r$=r$+"0":
1 pyf=(py+(i-1
1 pxf=(px+(i-1
1 pvar2=pvar:
1 pvar1=pvar:
1 pvar1*pvar2
1 p$(op1)=p$(op1):
1 ory=x(sub2)/2
1 orx=x(sub1)/2
1 op2=op2-65536
1 op2+valor>500
1 op2+valor)=m$(op1
1 op1=op1-65536
1 op1+valor>500
1 op1+valor)
1 obtencion de un numero
1 o=a(nt,j):
1 numero con modificador
1 nuevao=i+1
1 nudos=nn-1
1 nu>16777216
1 ntab=ntab+1
1 niv=orden:
1 ni>16777216
1 nha=nha+nh:
1 nha=nha+nh
1 nde=nde+nd:
1 nde=nde+nd
1 n=dir+((cl2-1
1 miy=-indy/escy
1 mix=-indx/escx
1 md2=md2-md1*4
1 md2=md2-cod*16
1 marte
1 lpx=lpx*qwe:
1 lm=lm+(x(3
1 lm=lm+(x(2
1 linea=linea+1
1 l(x)*((x<48
1 l$(i)>"9")
1 j$(dir);r$
1 izq=(i$="i")
1 indy=-escy*ory+opy:
1 indx=-escx*orx+opx:
1 indi=nrs+1
1 indi=indi+1
1 incx),(incy),ang:
1 i$-(p=fin)))=0
1 filas=nrs:
1 filas=filas+1
1 escy=lpy/lry:
1 escx=lpx/lrx:
1 es=x1+x2+y1*y2:
1 dire=50000
1 dir=dire+10
1 dir,sub1))
1 dir+((cl2-1
1 dim=uves+nn:
1 di;"/";me;
1 decodificacion
1 d$=d$+a$(b(j)+(j=1
1 d$=d$+"*"+
1 conversor complemento 2
1 carga de programa
1 cara
1 c$=c$+a$(b(i))+
1 c$=c$+"*"+a$(b(i)+1
1 c$="RECTAS":
1 c$="ARCOS":
1 c$="("+c$+")"
1 bp=a-(bM*256
1 borrado de una linea
1 batcode
1 b$=b$+e$(o):
1 b$;b$;" Pts":
1 antirun2
1 antirun1
1 analizador sintactico
1 a=nu-(bs*65536
1 a(ntab,z)>a(ntab,51
1 a(ntab,z)=0
1 a(nt,x)>a(nt,51
1 a$=c$+"*"+a$(1
1 a$=a$+"*"+
1 a$="1/2/"+a$+"*"+
1 a$="1/"+a$(2
1 a$)+"^2"+"*"+
1 a$)+")"+"*"+
1 a$(b(i)+(i=1
1 YO .......... 000010
1 Voyager 6
1 VIDAS: PUNTOS FUEGO:
1 Teclastick
1 TZX BY YOXXXOY0
1 TRANSLADAR PROGRAMA
1 SAVE DATOS
1 SALVAR EL EDITOR
1 SALTA ESPACIOS
1 SALDO TOTAL
1 Pantalla de ayuda
1 PRESENTACION Y RESOLUCION EN PANTALLA DE CIRCUITOS ELECTRICOS
1 PRESENTACION
1 PABLO .......... 000984
1 NUEVO PROGRAMA
1 Mover lineas
1 Marte G
1 MUERTE DEL HEROE
1 MOVIMIENTO DELANTE
1 MOVIM.Y PATADA MALO
1 MICROHOBBY SEMANAL 69-72
1 MENSAJE DE ERROR
1 MAGAZINE CASSETTE
1 LOAD DATOS
1 Karate
1 JOSE .......... 004012
1 J;" ";m(j,k)
1 Integral2
1 INTRODUCIR DATOS
1 INTRODUCE TU NOMBRE
1 INICIALIZACION
1 I2+(B2>B1)
1 I2+(B2<B1)
1 I2+(A2>A1)
1 I2+(A2<A1)
1 HOBBY PRESS
1 Futbol K
1 FI=FI+.004
1 FELICITACION
1 Estadist
1 Dibujo
1 Contabili
1 Circuitos
1 Cara
1 CONSOLACION
1 CARLOS .......... 001342
1 CAIDA DEL NIDO
1 C/Y,DISCO+X:
1 C$="-HAS JUGADO BIEN PERO NO HAS GANADO,ELIGE OPCION: -UNA PROROGA (TECLA-P) -EMPEZAR DE NUEVO (TECLA-E) -TERMINAR EL JUEGO (TECLA-T)"
1 Borrado de lineas
1 Batcode
1 Batalla !!!
1 BORRAR CUENTAS
1 B$="59:<59:<59:<959799759<<:99:<9575"
1 B$="-LO SIENTO PERO HE GANADO, QUIERES INTENTERLO DE NUEVO (S/N)?"
1 Antirun 9
1 ANALISIS DE 2 OPERANDOS
1 ANALISIS DE 1 OPERANDO
1 ACTUALIZAR CUENTAS
1 A1,B1;" ";
1 A$="GUERRA.BAS":
1 A$="2228222822244448222844282224444"
1 A$=" -PERFECTO ME HAS GANADO,LO INTENTAS OTRA VEZ (S/N)?
1 ;x;":";a(nt,x);" ":
1 ;di;"/";me;
1 ;a$(cl);" ";
1 ;a$();" ";b$
1 ;"numero impar de parentesis":
1 ;"^ ERROR"
1 ;"Valor maximo:";a(nt,51
1 ;"Valor maximo incorrecto":
1 ;"VIDAS : ";VID
1 ;"VAMOS A INTRODUCIR LAS RAMAS"'"(Pulsa una tecla)":
1 ;"Tabla ";nt;" :";a$(nt):
1 ;"S .- Salvar prog."
1 ;"Rebobina la cinta para verificar"
1 ;"QUIERES VERIFICAR (S/N) ?"
1 ;"Pulse 'S' para seguir listando"
1 ;"PULSE UNA TECLA PARA EMPEZAR"
1 ;"PULSA UNA TECLA PARA EMPEZAR"
1 ;"POTENCIAL";
1 ;"Numero de datos:";a(nt,53
1 ;"Nudos no alineados":
1 ;"No hay sitio"'"Introduce de nuevo los nudos":
1 ;"Mete la linea otra vez":
1 ;"Media (X)=";
1 ;"MOISES VILALTA PONS 1985";
1 ;"MICRO HOOBY"
1 ;"INGRESADO EN ";a$(cl1),"LA CANTIDAD ";nu;" PTS"'"SALIDA DE ";
1 ;"I .- Inter. prgs."
1 ;"HAS CONSEGUIDO ";PUN;" PUNTOS";
1 ;"GRABANDO DATOS EN CINTA":
1 ;"ERES UN BUEN SAMURAI";
1 ;"ENERGIA : ";E
1 ;"CARGANDO DATOS EN MEMORIA":
1 ;"CARGA DE CODIGO MAQUINA"
1 ;"CALCULANDO"
1 ;"C .- Cargar prog."
1 ;"ACTUALIZAR CUENTAS"'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ "
1 ;"ABAJO TIENES LA PUNTUACION";
1 ;"==========================";
1 ;"====================";
1 ;":";a$(z-5
1 ;"8-Borrar tablas de datos"
1 ;"7-SAVE Programa + Tablas"
1 ;"6-SAVE Tablas de datos"
1 ;"6 > ACTUALIZAR CUENTAS"
1 ;"5-LOAD Tablas de datos"
1 ;"5 > LIST SALDO PARCIAL";
1 ;"4-Listar tablas":
1 ;"4-Comprobacion y retorno":
1 ;"4 > LIST SALDO TOTAL";
1 ;"3-Modificar algun dato";
1 ;"3-Graficos"
1 ;"3 > INTRODUCIR DATOS";
1 ;"2-Modificar tabla "
1 ;"2-Cambiar numero de datos";
1 ;"2 > LOAD DATOS";
1 ;"1-Modificar valor maximo";
1 ;"1-Crear tabla de datos"
1 ;"1 > SAVE DATOS";
1 ;"...............................";
1 ;"..............................."
1 ;"-Q........SUBIR";
1 ;"-PROFESIONAL:1";
1 ;"-PRINCIPIANTE:3";
1 ;"-P......DERECHA";
1 ;"-O....IZQUIERDA";
1 ;"-MEDIO:2";
1 ;"-LAS TECLAS DE CONTROL SON:";
1 ;"-ELIJA NIVEL DE DIFICULTAD"
1 ;"-A........BAJAR"
1 ;"* TRANSLADAR PROGRAMA *"
1 ;"* SAVE DATOS *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
1 ;"* SALVAR PROGRAMAS *"
1 ;"* PANTALLA DE AYUDA *"
1 ;"* MENU *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
1 ;"* LOAD DATOS *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
1 ;"* INTRODUCIENDO DATOS *":
1 ;"* EDITOR DE BATCODE *"
1 ;"* CARGAR PROGRAMAS *"
1 ;"* BATALLA DE PROGRAMAS *"
1 ;"* ""NEW"" *"
1 ;"(voltios)";
1 ;"(grados)"
1 ;"!!!!!BUENA SUERTE SOLDADO!!!!"
1 ;" VIDAS : ";VID
1 ;" TU MISION HA FRACASADO.MIRA ";
1 ;" SCORE: DISTANCIA: ":
1 ;" PULSA UNA TECLA ":
1 ;" MOVIMIENTO: A-DRCHA -- L-IZQDA":
1 ;" MENU PRINCIPAL"
1 ;" FELICIDADES! HA ENCONTRADO ";
1 ;" Elija una opcion (S/C/I) ";:
1 ;" Ejecucion interrumpida ":
1 ;" EL RECORRIDO QUE TE QUEDABA ";
1 ;" EL MONOLITO. ES VD. UNICO. ";
1 ;" ";w$(i*12
1 ;" ";a$(n-2
1 ;" ";a$(n+7
1 ;" c CIRCUITO r RESULTADOS"
1 ;" Para la utilizacion de estautilidad, es aconsejable leer elarticulo aparecido en la revistanumero 69, pagina 25, donde nosesplicara su funcionamiento."
1 ;" PULSA ""ENTER"" PARA MENU ":
1 ;" NO HAY SITIO EN ";a$(cl1):
1 ;" Pierde el programa ";
1 ;" Para la utilizacion de estas cuatro rutinas, es recomendable la lectura de la revista numero 70 pagina 28."
1 ;" PARA MAS DATOS '' ENTER '' ":
1 ;" Pulse una tecla ":
1 ;" ES CORRECTO (S/N) "
1 ;" ESTADISTICA "
1 ;" ":
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" "
1 ;" ":
1 ;" ":
1 3.- CURSORES
1 2.- KEMPSTON
1 1.- TECLADO
1 0+3+4*2*x^(2-1)+3*x^(3-1)B
1 0+3+4*2*x^(2-1)+3*x^(3-1)8
1 -x12)*(izq=0
1 -indy)/escy:
1 -indx)/escx:
1 ---------------
1 ,po;" ":
1 ,MOV;" ";
1 +j,i)=r(h,2
1 +(x1*y2-y1*x2):
1 +(iy-lon)/2
1 +(ix-lon)/2
1 +"("+d$+")":
1 +"("+d$+")"
1 +"("+c$+")+"+c$+"/"+a$(1
1 +"("+c$+")":
1 +"("+a$(b(j)+1
1 +"("+a$(b(i)+1
1 *md1+md2)+v$+w$
1 *PATADA DELANTE*
1 *PATADA ATRAS*
1 *MOVIMIENTO ATRAS**
1 ***AGACHARSE****
1 *(z(i,dim,1
1 *(q$="a")+3
1 )=z(i,dim,2
1 )=z(i,dim,1
1 )=x*((x>64
1 )=a(ntab,52
1 )=X$+W$+X$+"
1 )=(y*escy+indy)*(y<may)*(y>miy)+175
1 )=(x*escx+indx)*(x<max)*(x>mix)+255
1 )="+*")+(c$(1
1 )-lm)*(x(3
1 )-lm)*(x(2
1 ),ypl+(i-1
1 ),sub2))-py
1 ),sub1))-px
1 ),"hasta ";r(k,2
1 ),"VISTA L.",2
1 ),"ALZADO",1
1 )+a(ntab,z)
1 )+(p=fin)))=1
1 )+"^("+c$+"-1)*"+
1 )+"^"+c$+"*(
1 )+"^"+c$+"*
1 )*o/a(nt,52
1 )*(z(i,dim,1
1 ))/(om*r(h,6
1 ))+(r(nr,6
1 )'"PROFUNDIDAD = ";x(2
1 )'"ANCHURA = ";x(1
1 (z(i,dim,2
1 (z(i,dim,1
1 (x2*x2+y2*y2)+1e-3
1 (x1*x1+y1*y1)*
1 (op1+op2>501
1 (nx*e)-nx+143
1 (nx*e)+143
1 (l$(i)<"0"
1 (incx*incx+incy*incy):
1 (dir+(((cl2-1
1 (c$);" DE ";(A$);" ";
1 (a$);"? ";r(k,j)
1 ("+a$(b(i)+1
1 '"EL SALDO ES ";nde-nha;" Pts."
1 '"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"
1 #x;" ";t$(cod*3
1 "p,a,v,c,e =";
1 "numero impar de parentesis !!!":
1 "numero de ramas: ";nrs:
1 "nudo origen ";r(k,1
1 "graf estad"
1 "fase de la tension ";r(k,9
1 "fase de la intensidad ";r(k,10
1 "Valor maximo :";a(ntab,51
1 "Valor del dato ";(z);":";a(nt,z)
1 "Valor Maximo:";a(nt,51
1 "Valor Maximo ? ";a(ntab,51
1 "Tabla a modificar ?:";nt:
1 "Tabla ";ntab;":";
1 "Tab ";nt;":";a$(nt)
1 "Seguro (S/N)";w$
1 "SALVANDO """;A$;"""...":
1 "SALDO TOTAL ";sa;" PTS":
1 "RESISTENCIA","INDUCTANCIA","CONDENSADOR","FUENTE DE TENSION","FUENTE DE INTENSIDAD"
1 "QUIERE SALDAR LA CUENTA (S/N)";V$:
1 "PLANTA",1
1 "Numero de tablas definidas ?";nt:
1 "Numero de tabla ? ";nt:
1 "Numero de datos ?:";a(nt,53
1 "Numero de datos :";a(ntab,53
1 "Numero de Datos ? ";a(ntab,53
1 "Numero Datos:";a(nt,53
1 "Nuevo valor maximo ";a(nt,51
1 "Nuevo valor del dato ";(d);":";a(nt,d)
1 "Nombre del programa a salvar: ";
1 "Nombre del programa a cargar: ";
1 "Nombre de la tabla ?:";a$(ntab)
1 "MERCADERIA","EF. A/C","CLIENTES","DEUDORES","CAJA","BANCOS","MOBILIARIO","EQ.OFICINA","TRANSPORTE","SUMINI.GAS","TELEFONO","SUMINI.LUZ","PROVEEDORES","ACREEDORES","EF. A/P","PRESTAMOS","CAPITAL","OTROS GASTOS"
1 "LA VISTA L. ES ..(i/d) ? ",i$:
1 "Introduce la frecuencia ";om
1 "INGRESADO EN LA CUENTA ";cl1:
1 "FECHA 'DIA' ";d;" ";"'MES' ";m
1 "Escala de 1 a 8 ";qwe
1 "Ejecucion paso a paso (S/N) ";
1 "EL SALDO ES ";nd-nha;" Pts."
1 "EL DINERO HA SALIDO DE LA CUENTA ";cl2:
1 "Desea finalizar el juego (S/N) ";
1 "Dato a modificar ?:";d
1 "Dato Numero ";z;":";
1 "DAT","SAL","DSC","MOV","SUM","RES","SAC","SMY","CMP","COD","SET","INT","NOP"
1 "DAME CLAVE DE LA CUENTA ";cl:
1 "D-Karate","E-Integral2","F-Batcode","G-Teclastick"
1 "D-Futbol","E-Estadist"
1 "Cuantos nudos vas a introducir ?";n:
1 "CUENTAS * LIST TOTAL * SALDOS"'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $":
1 "COTAS EN LA ";(a$)'M(J,k):
1 "CANTIDAD INICIAL ";ni:
1 "CANTIDAD ";nu:
1 "ANCHURA","PROFUNDIDAD","ALTURA"
1 "ALTURA = ";x(3
1 "A-Voyager","B-Contabili","C-Antirun"
1 "A-Dibujo","B-Circuitos","C-Marte"
1 "32495756543283698271737932776582847378699032"
1 " QUIERES SALIDA POR IMPRESORA (S/N)?";m$:
1 " CUAL QUIERES ACTUALIZAR? ";cl1:
1 " SALDO DE ";a$(cl)'"$ $ $ $ $ $ $ $ $
1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1 !!!!!!!!!!!!!!!!!!
1 PUNTOS : ";PUN
1 JOSE AVILA AVILA RUIZ":
1 ANTONI FREIXANET 1985"
1 1985 Pablo Ariza software ltd.
1 Sergio Martinez Lara
1 Por favor, elija un programa
1 Han colaborado Carlos y Jose
1 (c) 1985
1 C
1
1
1
1